Option Strict Off
Option Explicit On
Friend Class NameElement
	
	Private m_Name As String
	Public Function FileSize() As Integer
		
		On Error GoTo ErrHandler
		
		FileSize = FileLen(Name)
		Exit Function
		
ErrHandler: 
		FileSize = -1
		Exit Function
		
	End Function
	Public Property Name() As String
		Get
			Name = m_Name
		End Get
		Set(ByVal Value As String)
			m_Name = Value
		End Set
	End Property
End Class